home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / LEV1OPT.PAS < prev    next >
Pascal/Delphi Source File  |  1986-12-03  |  3KB  |  91 lines
  1. PROCEDURE LEV1OPT;
  2.    VAR
  3.      T:CHAR;
  4.      MSG:SCRLINE;
  5.      K:INTEGER;
  6.    BEGIN
  7.      CASE OPTION OF
  8.    0: IF OBJPTR <= MAXSIZE THEN DRAWOBJ ELSE RING2;
  9.    1: BEGIN
  10.         (* CHANGE OBJECT *)
  11.         IF (BUTTON1) OR (BUTTON2) THEN
  12.           BEGIN
  13.             LEV := 2;
  14.             MENU(LEV);
  15.           END;
  16.       END;
  17.    2: BEGIN
  18.         (* OPERATIONS #1 *)
  19.         IF (BUTTON1) OR (BUTTON2) THEN
  20.           BEGIN
  21.             LEV := 3;
  22.             MENU(LEV);
  23.           END;
  24.       END;
  25.    3: BEGIN
  26.         (* OPERATIONS #2 *)
  27.         IF (BUTTON1) OR (BUTTON2) THEN
  28.           BEGIN
  29.             LEV := 4;
  30.             MENU(LEV);
  31.           END;
  32.       END;
  33.    4: BEGIN
  34.         (* CONFIG SYSTEM *)
  35.         IF (BUTTON1) OR (BUTTON2) THEN
  36.           BEGIN
  37.             LEV := 5;
  38.             MENU(LEV);
  39.           END;
  40.       END;
  41.    5: BEGIN   (* LOAD *)
  42.         IF (BUTTON1) OR (BUTTON2) THEN
  43.           BEGIN
  44.             MSG := 'Save Current Drawing (Y/N) <Y> ?';
  45.             T := ASKCHAR(24,2,1,MSG,' ',' ','Y');
  46.             IF T <> 'N' THEN SAVEFILE;
  47.             LOADDR(K);
  48.             M1 := 2;                     (* HIDE MOUSE *)
  49.             MOUSE(M1,M2,M3,M4);
  50.             REDRAW;
  51.             M1 := 1;                     (* SHOW MOUSE *)
  52.             MOUSE(M1,M2,M3,M4);
  53.           END;
  54.       END;
  55.    6: BEGIN   (* SAVE *)
  56.         IF (BUTTON1) OR (BUTTON2) THEN SAVEFILE;
  57.       END;
  58.    7: BEGIN    (* PRINT DRAWING*)
  59.       IF (BUTTON1) OR (BUTTON2) THEN
  60.        BEGIN
  61.         M1 := 2;
  62.         MOUSE(M1,M2,M3,M4);          (* HIDE MOUSE CURSOR *)
  63.         MOVCUR(21,1);
  64.         WRITE(BLKLINE);
  65.         MOVCUR(22,1);
  66.         WRITE(BLKLINE);
  67.         MOVCUR(23,1);
  68.         WRITE(BLKLINE);
  69.         DRAW(0,0,0,3,HRCOLOR);     (* DRAW ALIGNMENT MARKS *)
  70.         DRAW(0,0,4,0,HRCOLOR);     (** HARDWARE DEPENDENT **)
  71.         DRAW(639,0,639,3,HRCOLOR);
  72.         DRAW(639,0,635,0,HRCOLOR);
  73.         DRAW(0,159,0,156,HRCOLOR);
  74.         DRAW(0,159,4,159,HRCOLOR);
  75.         DRAW(639,159,639,156,HRCOLOR);
  76.         DRAW(639,159,635,159,HRCOLOR);
  77.         INTR(5,REGS);
  78.         REDRAW;
  79.         M1 := 1;
  80.         MOUSE(M1,M2,M3,M4);          (* SHOW MOUSE CURSOR *)
  81.        END;
  82.       END;
  83.    8: IF (BUTTON1) OR (BUTTON2) THEN
  84.         BEGIN
  85.             MSG := 'Save Current Drawing (Y/N) <Y> ?';
  86.             T := ASKCHAR(24,2,1,MSG,' ',' ','Y');
  87.             IF T <> 'N' THEN SAVEFILE;
  88.             QUIT := TRUE;
  89.         END;
  90.      END; (*CASE*)
  91.    END;